home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (DO)
/
Softdisk Magazette Volume 1, No. 10 (1982-06)(Softdisk)(Side A).zip
/
Softdisk Magazette Volume 1, No. 10 (1982-06)(Softdisk)(Side A).do
/
ONE.LINERS.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
968b
|
19 lines
10 REM ONE.LINERS
20 TEXT : HOME : SPEED= 255
30 HTAB 14: INVERSE : PRINT "ONE LINERS": NORMAL
40 PRINT : PRINT "HOW MUCH CODE CAN YOU CRAM IN ONE LINE?"
50 PRINT : PRINT "JOEL REA OF SHREVEPORT, LOUISIANA HAS"
60 PRINT : PRINT "GIVEN US A CHALLENGE."
80 PRINT : PRINT : PRINT "SEE IF YOU CAN BEST HIM IN TERMS OF"
90 PRINT : PRINT "ORIGINALITY AND POWER."
100 PRINT : PRINT : PRINT "REMEMBER YOUR ENTIRE PROGRAM MUST BE"
110 PRINT : PRINT "ONLY ONE STATEMENT LONG."
120 PRINT : PRINT "(NOT COUNTING REMARKS THAT IDENTIFY IT)"
130 PRINT : HTAB 13: INVERSE : PRINT "HIT SPACE BAR";: NORMAL : GET R$: PRINT CHR$(4)
150 HOME
160 HTAB 14: INVERSE : PRINT "ONE LINERS": NORMAL
170 PRINT : PRINT : PRINT "SOFTY WILL PUT ALL OF YOUR ENTRIES INTO"
180 PRINT : PRINT "A MENU DRIVEN PROGRAM."
190 PRINT : PRINT : PRINT : PRINT
200 PRINT : HTAB 13: INVERSE : PRINT "HIT SPACE BAR";: NORMAL : GET R$: PRINT CHR$(4)
210 PRINT CHR$(4);"RUN ONE.LINER.MENU"